home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8603.d64 / shape 64 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  30 lines
  1. 100 REM SHAPE 64 VON R. LOEWENSTEIN
  2. 101 REM              ZEISIGWEG 42
  3. 102 REM              8301 OBERAHRAIN
  4. 103 REM              TEL:08703/2088
  5. 104 :
  6. 120 POKE53270,4:X=49152:FORA=0TO368:READB:POKEX+A,B:C=C+B:NEXT
  7. 125 IFC<>43521THENSYS58784:PRINT"FEHLER IN DATAS!":END
  8. 130 SYS58784:SYS49391:PRINT"[147]   ****  C-64 SHAPE SYSTEM V1.0  ****"
  9. 140 PRINT" 64K RAM SYSTEM  40130 BASIC BYTES FREE"
  10. 150 NEW
  11. 32000 DATA32,253,174,32,235,183,134,4,165,20,166,21,133,2,134,3,32,253,174,32
  12. 32001 DATA235,183,165,20,133,5,138,240,32,201,1,240,14,162,7,189,89,192,157,146
  13. 32002 DATA192,202,16,247,76,113,192,162,7,189,97,192,157,146,192,202,16,247,76
  14. 32003 DATA113,192,32,253,174,32,235,183,142,110,192,165,20,141,106,192,162,7
  15. 32004 DATA189,105,192,157,146,192,202,16,247,76,113,192,177,2,145,6,177,8,145
  16. 32005 DATA10,177,6,145,2,177,10,145,8,169,255,145,2,169,0,145,8,169,54,133,1
  17. 32006 DATA169,0,162,160,133,6,134,7,162,176,133,10,134,11,166,2,165,3,24,105
  18. 32007 DATA20,133,9,134,8,166,5,160,0,169,255,145,2,169,0,145,8,200,196,4,144
  19. 32008 DATA243,165,6,24,101,4,133,6,133,10,144,4,230,7,230,11,165,2,24,105,40
  20. 32009 DATA133,2,133,8,144,4,230,3,230,9,202,208,208,169,55,133,1,96,234,169,51
  21. 32010 DATA133,1,169,0,162,200,160,208,133,2,134,3,133,4,132,5,162,8,168,177,4
  22. 32011 DATA145,2,136,208,249,230,3,230,5,202,208,242,169,55,133,1,88,96,120,169
  23. 32012 DATA208,141,207,192,32,197,192,169,0,141,0,221,169,18,141,24,208,169,196
  24. 32013 DATA141,136,2,169,50,162,193,141,20,3,142,21,3,169,0,141,32,208,141,33
  25. 32014 DATA208,169,14,141,134,2,169,60,162,3,133,43,134,44,169,0,141,60,3,169
  26. 32015 DATA8,32,210,255,88,96,173,141,2,201,3,208,24,169,18,141,141,2,141,142
  27. 32016 DATA2,230,255,165,255,41,1,208,11,169,216,141,207,192,32,197,192,76,49
  28. 32017 DATA234,169,208,141,207,192,32,197,192,76,49,234,120,169,208,141,207,192
  29. 32018 DATA76,198,192,120,169,216,141,207,192,76,198,192
  30.